﻿Imports MySQL
Public Class FrmThongKeTon

    Private Sub FrmThongKeTon_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim rpt As New CptThongKeTon
        Dim ds As New dsThongKe
        ds.Tables("sp_SanPham_ThongKeTon_Phuc").Clear()
        clsSQL.FillDataSet("sp_SanPham_ThongKeTon_Phuc", ds, "sp_SanPham_ThongKeTon_Phuc")
        rpt.SetDataSource(ds.Tables("sp_SanPham_ThongKeTon_Phuc"))
        rpt.SetParameterValue("laytennv", TenNVDangNhap)

        CptVThongKeTon.ReportSource = rpt

    End Sub
End Class